home *** CD-ROM | disk | FTP | other *** search
/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / diary_note / journal / !Journal / !Journal (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1995-07-19  |  5.2 KB  |  185 lines
  1.  > <Journal$Dir>.!Journal
  2.  "Hourglass_Smash"::
  3. $;" at line "+
  4.  "<Obey$Dir>.ShellLibRT"
  5.  "<Obey$Dir>.ScrapLib"
  6. 4void1%=
  7. shell_InstallLib(  "<Obey$Dir>.CalLib" )
  8. 6void2%=
  9. shell_InstallLib(  "<Obey$Dir>.DatePick" )
  10.     4void3%=
  11. shell_InstallLib(  "<Obey$Dir>.OLELib" )
  12. shell_FatalError
  13.  "Hourglass_On"
  14.  "Wimp_SlotSize",-1,-1 
  15.  progsize%
  16. pagesize%=1<<10
  17. freespace%=&8000+progsize%
  18. =freespace%+pagesize%
  19. =freespace%
  20. shell_HeapManagerInit("<Obey$Dir>.",freespace%)
  21. shell_Init
  22. *task%=
  23. shell_WimpInit_I(200,"Journal")
  24. shell_TraceInit("")
  25. shell_TraceOn
  26. shell_ResourcesInit
  27. app_init
  28. _closedown%     =
  29. changed%        =
  30.  "Hourglass_Off"
  31. shell_Error
  32. shell_Action(
  33. shell_Poll_I(0,task%))
  34.  _closedown%
  35. shell_ScrapRemoveDir( 
  36. shell_GetAppName )
  37. shell_Exit:
  38. app_init
  39. SetUp_Menus
  40. SetUp_Windows
  41. SetUp_IconBar
  42. shell_ScrapCreateDir( 
  43. shell_GetAppName )
  44. SetUp_Menus
  45.  void1%,void2%
  46. 2FMenuHandle_IconBar%=
  47. shell_MenuNew(
  48. shell_MessageNoArgs("MTIBar"))
  49. 3IMenuItem_Info%     =
  50. shell_MenuAdd(0,
  51. shell_MessageNoArgs("Info"),"")
  52. 4Yvoid4%             =
  53. shell_MenuAdd(0,
  54. shell_MessageNoArgs("Quit"),"_MenuSelect_Quit")
  55. shell_AttachMenuDBox(MenuItem_Info%,"progInfo","_PreOpenInfo","")
  56. shell_CreateWindowStatic("xfer_send",xfer%)
  57. 8CMenuHandle_Main%=
  58. shell_MenuNew(
  59. shell_MessageNoArgs("MTIBar"))
  60. 9IMenuItem_Info%     =
  61. shell_MenuAdd(0,
  62. shell_MessageNoArgs("Info"),"")
  63. :IMenuItem_Save%     =
  64. shell_MenuAdd(0,
  65. shell_MessageNoArgs("Save"),"")
  66. ;Yvoid5%             =
  67. shell_MenuAdd(0,
  68. shell_MessageNoArgs("Quit"),"_MenuSelect_Quit")
  69. shell_AttachMenuDBox(MenuItem_Info%,"progInfo","_PreOpenInfo","")
  70. shell_AttachSubMenu(MenuItem_Save%,xfer%,"")
  71. SetUp_Windows
  72. shell_CreateWindowStatic("mainw",mainw%)
  73. shell_AttachDataSave(xfer%,2,&100,&FFF,1,"_DataSave")
  74. shell_AttachPopupDatePicker(mainw%,1,-1,"_A")
  75. shell_CalendarGetTodaysDate(date%,mont%,year%)
  76. shell_IconPutData(mainw%,1,
  77. shell_CalendarDateString(date%,mont%,year%),
  78. shell_AttachClickSelect(mainw%,-1,"_clickmain")
  79. shell_AttachMenu(mainw%,-1,MenuItem_Save%,0,0,0)
  80. H*mon$=
  81. shell_CalendarMonthString(mont%)
  82. name$=
  83. (date%)+"/"+mon$
  84. shell_IconPutData(xfer%,1,name$,
  85. SetUp_IconBar
  86. NSsicon=
  87. shell_Iconbar(-1,"!"+
  88. shell_GetAppName,"",120,MenuHandle_IconBar%,0,0,0)
  89. shell_AttachHelpTag(-1,sicon,"iconbar")
  90. shell_AttachClickSelect(-1,sicon,"_ClickSelect_IconBar")
  91. _DataSave(fullname$)
  92. shell_IconPutData(xfer%,1,name$,
  93. savefile(fullname$)
  94. changed%=
  95. _clickmain(wh%,icon%)
  96.  file_handle%, file_buffer%, OLE_file_name$ , X%
  97. \Xfile_buffer% = 
  98. shell_HeapBlockFetch( 256 ):filebuff% = 
  99. shell_HeapBlockFetch( 256 )
  100. changed%=
  101.  $file_buffer% =""
  102.  icon% 
  103.  Send today's file to Editor
  104. aK OLE_file_name$ = "<Wimp$ScrapDir>." + 
  105. shell_GetAppName + ".JournFile"
  106. shell_OLEDeLinkFile( OLE_file_name$ )
  107. shell_FileExists(
  108. _OpenPath)=
  109.   X%=
  110. _OpenPath
  111. f7  $file_buffer% =
  112. shell_IconGetData(mainw%,1)+
  113. g!  X%=
  114.  "<Obey$Dir>.JournFile"
  115. j+  $file_buffer% =$file_buffer% +
  116.  Date$=$file_buffer%
  117.  Date$=
  118. Date$)
  119.  $file_buffer%=Date$
  120. p' file_handle% = 
  121. ( OLE_file_name$ )
  122.  "OS_GBPB", 2, file_handle%, file_buffer%, 
  123. ( $file_buffer% ) 
  124.  #file_handle%
  125. ( "SetType " + OLE_file_name$ + " FFF")
  126. shell_MessageSendDataLoad( &FFF, OLE_file_name$ )
  127. shell_OLELinkFile( OLE_file_name$, "_reload" )
  128. shell_EnsurePoll
  129.  key_ctrl_down% = &1AE
  130.  "Wimp_ProcessKey",key_ctrl_down%
  131. _A (T$)
  132. }; date%=
  133. T$,2)):mont%=
  134. T$,5,2)):year%=
  135. ("19"+
  136. T$,2))
  137. shell_IconPutData(mainw%,1,
  138. shell_CalendarDateString(date%,mont%,year%),
  139. _OpenPath
  140. *mon$=
  141. shell_CalendarMonthString(mont%)
  142. ;=" <Obey$Dir>."+
  143. (year%)+"."+mon$+"."+
  144. (date%)+"/"+mon$
  145. _PreOpenInfo(wh%)
  146. shell_IconPutData(wh%,0,
  147. shell_MessageNoArgs("progInfo0"),0)
  148. shell_IconPutData(wh%,1,
  149. shell_MessageNoArgs("progInfo1"),0)
  150. shell_IconPutData(wh%,2,
  151. shell_MessageNoArgs("progInfo2"),0)
  152. shell_IconPutData(wh%,3,
  153. shell_MessageNoArgs("progInfo3"),0)
  154. _ClickSelect_IconBar(wh%,icon%)
  155. shell_OpenWindowStatic(mainw%)
  156. _MenuSelect_Quit(blk%)
  157. _closedown%=
  158. _reload(file$)
  159.  file_length%, buff% ,X%
  160. shell_Tracef0("reloading file0001")
  161. -file_length% = 
  162. shell_FileLength( file$ )
  163. 1buff% = 
  164. shell_HeapBlockFetch( file_length% )
  165. ("LOAD " + file$ + " " + 
  166. ~( buff% ) )
  167.  Store day's diary entry
  168. $filebuff%=
  169. _OpenPath
  170.  "OS_File",10,$filebuff%,&fff,,buff%,buff%+file_length%
  171. shell_HeapBlockReturn( buff% )
  172. shell_DoBackgroundTask
  173. shell_OLEScanLinkedFiles
  174. savefile(filsave$)
  175.  file_length%, buff% ,X%
  176. Kfile_length% = 
  177. shell_FileLength( "<Wimp$ScrapDir>.Journal.JournFile" )
  178. 1buff% = 
  179. shell_HeapBlockFetch( file_length% )
  180. ("LOAD <Wimp$ScrapDir>.Journal.JournFile " + 
  181. ~( buff% ) )
  182. $filebuff%=filsave$
  183.  "OS_File",10,$filebuff%,&fff,,buff%,buff%+file_length%
  184. shell_HeapBlockReturn( buff% )
  185.